home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 July / 1994-07b.d64 / copy behind (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  610b  |  11 lines
  1. 0 rem  copy data behind program           :
  2. 1 input"start, end addr.";s,e:gosub63999:b=x:x=x+46+e-s:y=int(x/256):z=x-256*y
  3. 2 print"[147]p[207] 45,"z":p[207] 46,"y":c[204]:s="s:print"e="e":b="b":g[207] 4"
  4. 3 poke198,2:poke631,13:poke632,13:end
  5. 4 fori=btob+42:readx:pokei,x:next:x=int((e+1)/256):y=e+1-x*256:pokei,y
  6. 5 pokei+1,x:i=i+2:forj=stoe:pokei,peek(j):i=i+1:next:end:data165,20,24,105,43
  7. 6 data133,95,169,0,101,21,133,96,160,0,177,95,133,88,200,177,95,133,89,230,95
  8. 7 data230,95,144,2,230,96,165,45,133,90,165,46,133,91,76,191,163
  9. 63990 gosub63999:sysx:print"file copied":return
  10. 63999 x=peek(61)+256*peek(62)+30:return
  11.